home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #119 (1991-03)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #119 (1991-03)(Amiga User Group Deutschland e.V.).adf / AmigaBASIC_Programme / Reaktionstest (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-07-03  |  2KB  |  43 lines
  1.      'Reaktionstest
  2.      'written August 1988 by Michael Gottwald
  3.      
  4. Start: SCREEN 1,640,200,3,2:WINDOW 1,"Reaktionstest",,8,1:DIM bg(9)
  5.   PALETTE 0,0,0.5,0.5:PALETTE 3,0.33,0.8,0:PALETTE 4,0,0,0:PALETTE 5,1,0,0
  6.   PALETTE 6,1,0.4,0.4:PALETTE 7,1,0.7,0.7:x=385:y=64:FOR i=5 TO 7
  7.   LINE (x,186)-(630,y),i:bg(0)=0.9424:bg(1)=1.5707:bg(2)=2.1991
  8.   bg(3)=3.7996:bg(4)=6.2831:bg(5)=2:bg(6)=3:bg(7)=7:bg(8)=6:bg(9)=5   
  9.   LINE -(630,y+30),i:LINE -(x+60,186),i:LINE -(x,186),i:PAINT (x+5,185),i,i
  10.   x=x+61:y=y+31:NEXT:w$="REAKTIONSTEST":c=5:LOCATE 5,20
  11.   FOR i=1 TO 13:COLOR 2,c:PRINT" ";MID$(w$,i,1);" ";
  12.   IF c=7 THEN c=4
  13.   c=c+1:NEXT:COLOR 1,0:LOCATE 8,1:PRINT" Mit diesem Programm können Sie Ihre";
  14.   PRINT" Reaktion testen !":PRINT:PRINT" Wenn die grüne Scheibe rot wird,";
  15.   PRINT" drücken Sie die rechte ALT-Taste.":PRINT:PRINT" Viel Vergnügen !"
  16.   LOCATE 19,23:COLOR 2,0:PRINT"© 1988 written by Michael Gottwald" 
  17.  SLEEP:SLEEP
  18.   CLS:PRINT" Wenn die Scheibe rot wird, rechte ALT-Taste drücken..."
  19.   CIRCLE (130,93),100,3:PAINT (160,93),3,3:CIRCLE (430,93),180,1
  20.   PALETTE 2,0.53,1,0:f=1:GOSUB Segmente:f=0
  21.   PAINT (511,130),2,1:PAINT (542,114),3,1
  22.   PAINT (539,75),7,1:PAINT (435,45),6,1:PAINT (397,104),5,1:GOSUB Segmente
  23. Aufbau: CIRCLE (x,y),180,0:LOCATE 18,60
  24.   COLOR 4,2:PRINT"Sehr gut":LOCATE 14,66:COLOR 4,3:PRINT"Gut":LOCATE 11,62
  25.   COLOR 4,7:PRINT"Befriedigend":LOCATE 6,52:COLOR 4,6:PRINT"Schlecht"
  26.   LOCATE 13,38:COLOR 4,5:PRINT"Mangelhaft":RANDOMIZE TIMER:z=2+RND*4
  27.   FOR i=0 TO z*1000:NEXT:PAINT (130,93),5,0:t=TIMER:CIRCLE (x,y),5,1
  28.   PAINT (x,y),1,1
  29.   WHILE PEEK(12577793)<>53:WEND:rt=TIMER-t:COLOR 1,0
  30.   LOCATE 20,2:PRINT"Reaktionszeit = "rt" Sekunden":IF rt>1 THEN rt=0.997
  31.   xp=x+SIN(rt*6.283)*178:yp=y+COS(rt*6.283)*77:c=POINT(xp,yp)
  32.   LINE (x,y)-(xp,yp),1:PRINT"  Nochmal (J/N) ?"
  33. Taste: k$=INKEY$:IF k$="j"THEN Erneuern
  34.        IF k$="n"THEN PRINT "Tschüss...":END
  35.      GOTO Taste 
  36. Erneuern: LINE (x,y)-(xp,yp),c:PAINT (130,93),3,0:LOCATE 20,18
  37.          PRINT"                    ":GOTO Aufbau 
  38. Segmente: x=430:y=93:FOR i=0 TO 4:IF f=1 THEN c=1 :ELSE c=bg(5+i)
  39.   xz=x+SIN(bg(i))*180:yz=y+COS(bg(i))*79.2:LINE (x,y)-(xz,yz),c:NEXT
  40.  RETURN
  41.   
  42.             
  43.